home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / t2win-32 / _tile.frm (.txt) < prev    next >
Visual Basic Form  |  1998-07-13  |  993b  |  34 lines
  1. VERSION 5.00
  2. Begin VB.Form frmTile 
  3.    Caption         =   "TileBitmap"
  4.    ClientHeight    =   3375
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1515
  7.    ClientWidth     =   4980
  8.    MDIChild        =   -1  'True
  9.    PaletteMode     =   1  'UseZOrder
  10.    ScaleHeight     =   3375
  11.    ScaleWidth      =   4980
  12. Attribute VB_Name = "frmTile"
  13. Attribute VB_GlobalNameSpace = False
  14. Attribute VB_Creatable = False
  15. Attribute VB_PredeclaredId = True
  16. Attribute VB_Exposed = False
  17. Option Explicit
  18. Option Base 1
  19. Private Const Iteration = 25
  20. Dim IsLoaded         As Integer
  21. Dim TimerStartOk     As Integer
  22. Dim TimerCloseOk     As Integer
  23. Dim TimerHandle      As Integer
  24. Dim TimerValue       As Long
  25. Private Sub Form_Load()
  26.    IsLoaded = False
  27.    Show
  28.    IsLoaded = True
  29. End Sub
  30. Private Sub Form_Paint()
  31.    Dim intResult        As Integer
  32.    intResult = cTileBitmapOnWindow(Me.hWnd, App.Path + "\time2win.dib")
  33. End Sub
  34.